home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / mdbguru.zip / BROWSE.FRT < prev    next >
Text File  |  1995-03-06  |  3KB  |  117 lines

  1. VERSION 2.00
  2. Begin Form <<formname>>
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "<<caption>>"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   6225
  10.    Left            =   1035
  11.    LinkTopic       =   "<<formname>>"
  12.    ScaleHeight     =   5820
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin PictureBox Picture1 
  17.       Align           =   1  'Align Top
  18.       BackColor       =   &H0080FFFF&
  19.       Height          =   495
  20.       Left            =   0
  21.       ScaleHeight     =   465
  22.       ScaleWidth      =   7335
  23.       TabIndex        =   0
  24.       Top             =   0
  25.       Width           =   7365
  26.       Begin CommandButton bForm 
  27.          Caption         =   "&Close"
  28.          Height          =   315
  29.          Index           =   4
  30.          Left            =   6000
  31.          TabIndex        =   5
  32.          Top             =   60
  33.          Width           =   795
  34.       End
  35.       Begin CommandButton bForm 
  36.          Caption         =   "&Update"
  37.          Height          =   315
  38.          Index           =   3
  39.          Left            =   5160
  40.          TabIndex        =   4
  41.          Top             =   60
  42.          Width           =   795
  43.       End
  44.       Begin CommandButton bForm 
  45.          Caption         =   "&Delete"
  46.          Height          =   315
  47.          Index           =   2
  48.          Left            =   4320
  49.          TabIndex        =   3
  50.          Top             =   60
  51.          Width           =   795
  52.       End
  53.       Begin CommandButton bForm 
  54.          Caption         =   "&Edit"
  55.          Height          =   315
  56.          Index           =   1
  57.          Left            =   3480
  58.          TabIndex        =   2
  59.          Top             =   60
  60.          Width           =   795
  61.       End
  62.       Begin CommandButton bForm 
  63.          Caption         =   "&Add"
  64.          Height          =   315
  65.          Index           =   0
  66.          Left            =   2640
  67.          TabIndex        =   1
  68.          Top             =   60
  69.          Width           =   795
  70.       End
  71.       Begin Data Data1 
  72.          BackColor       =   &H00C0C0C0&
  73.          Caption         =   "<<caption>>"
  74.          Connect         =   "<<connectstring>>"
  75.          DatabaseName    =   "<<databasename>>"
  76.          Exclusive       =   0   'False
  77.          Height          =   315
  78.          Left            =   60
  79.          Options         =   0
  80.          ReadOnly        =   0   'False
  81.          RecordSource    =   ""
  82.          Top             =   60
  83.          Width           =   2475
  84.       End
  85.    End
  86.    <<fieldcontrols>>
  87. End
  88. Option Explicit
  89.  
  90. Const B_ADD = 0
  91. Const B_EDIT = 1
  92. Const B_DELETE = 2
  93. Const B_UPDATE = 3
  94. Const B_CLOSE = 4
  95.  
  96. Sub Form_Load() 
  97.    dim cSQL as string
  98.    <<buildSQL>>
  99.    Data1.DatabaseName = "<<databasename>>"
  100.    Data1.RecordSource = cSQL
  101. end sub
  102.  
  103. Sub bForm_Click (Index As Integer)
  104.  
  105.     Select Case Index
  106.         Case B_ADD
  107.         Case B_EDIT
  108.         Case B_DELETE
  109.         Case B_UPDATE
  110.         Case B_CLOSE
  111.             Unload Me
  112.     End Select
  113.  
  114. End Sub
  115.  
  116.  
  117.